object AttachmentForm: TAttachmentForm
  Left = 16
  Top = 73
  HelpContext = 140
  BorderStyle = bsDialog
  Caption = 'Message Attachments'
  ClientHeight = 363
  ClientWidth = 613
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 14
    Width = 146
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 0
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 7
    Top = 34
    Width = 144
    Height = 285
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 1
  end
  object FileListBox1: TFileListBox
    Left = 156
    Top = 14
    Width = 143
    Height = 305
    ItemHeight = 13
    TabOrder = 2
    OnMouseDown = FileListBox1MouseDown
  end
  object AttList: TListBox
    Left = 403
    Top = 14
    Width = 191
    Height = 149
    ItemHeight = 16
    Style = lbOwnerDrawFixed
    TabOrder = 3
    OnClick = AttListClick
    OnDragDrop = AttListDragDrop
    OnDragOver = AttListDragOver
    OnDrawItem = AttListDrawItem
  end
  object RemoveAttachmentBtn: TButton
    Left = 312
    Top = 81
    Width = 85
    Height = 23
    Caption = 'Remove <<'
    TabOrder = 4
    OnClick = RemoveAttachmentBtnClick
  end
  object AddAttachmentBtn: TButton
    Left = 312
    Top = 50
    Width = 85
    Height = 23
    Caption = 'Add  >>'
    TabOrder = 5
    OnClick = AddAttachmentBtnClick
  end
  object BitBtn1: TBitBtn
    Left = 211
    Top = 330
    Width = 89
    Height = 26
    Caption = 'Attach'
    TabOrder = 6
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 312
    Top = 330
    Width = 89
    Height = 26
    TabOrder = 7
    Kind = bkCancel
  end
  object GroupBox1: TGroupBox
    Left = 311
    Top = 171
    Width = 293
    Height = 148
    Caption = 'Attachment Description'
    TabOrder = 8
    object Label4: TLabel
      Left = 23
      Top = 18
      Width = 44
      Height = 13
      Caption = 'Location:'
    end
    object Label1: TLabel
      Left = 37
      Top = 67
      Width = 31
      Height = 13
      Caption = 'Name:'
    end
    object Label5: TLabel
      Left = 12
      Top = 92
      Width = 56
      Height = 13
      Caption = 'Description:'
    end
    object Label2: TLabel
      Left = 9
      Top = 43
      Width = 58
      Height = 13
      Caption = 'MIME Type:'
    end
    object LocationEdt: TEdit
      Left = 93
      Top = 14
      Width = 190
      Height = 21
      ReadOnly = True
      TabOrder = 0
    end
    object NameEdt: TEdit
      Left = 93
      Top = 65
      Width = 190
      Height = 21
      Enabled = False
      TabOrder = 1
      OnExit = MimeTypeLBChange
    end
    object MimeTypeLB: TComboBox
      Left = 93
      Top = 39
      Width = 190
      Height = 22
      Style = csOwnerDrawFixed
      Enabled = False
      ItemHeight = 16
      Sorted = True
      TabOrder = 2
      OnDrawItem = MimeTypeLBDrawItem
      OnExit = MimeTypeLBChange
    end
    object DescriptionEdt: TEdit
      Left = 93
      Top = 90
      Width = 190
      Height = 21
      Enabled = False
      TabOrder = 3
      OnExit = MimeTypeLBChange
    end
    object NewTypeBtn: TButton
      Left = 202
      Top = 116
      Width = 81
      Height = 23
      Caption = 'New type'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = NewTypeBtnClick
    end
  end
  object ViewAttachmentBtn: TButton
    Left = 312
    Top = 112
    Width = 85
    Height = 21
    Caption = 'View Attach.'
    TabOrder = 9
    OnClick = ViewAttachmentBtnClick
  end
  object TMimeType: TTable
    DatabaseName = 'VistaMail'
    TableName = 'Mimetype.db'
    Left = 476
    Top = 88
    object TMimeTypeMimeType: TStringField
      FieldName = 'MimeType'
      Size = 40
    end
    object TMimeTypeMimeAction: TIntegerField
      FieldName = 'MimeAction'
    end
    object TMimeTypeDescription: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object TMimeTypeApplication: TStringField
      FieldName = 'Application'
      Size = 255
    end
    object TMimeTypeExtension: TStringField
      FieldName = 'Extension'
      Size = 3
    end
  end
end